作者: | 来源:互联网 | 2023-10-12 13:56
原文链接:http://tecdat.cn/?p=8003
原文出处:拓端数据部落公众号
演示数据集
library(gapminder)
head(gapminder)
## # A tibble: 6 x 6
## country continent year lifeExp pop gdpPercap
##
## 1 Afghanistan Asia 1952 28.8 8425333 779.
## 2 Afghanistan Asia 1957 30.3 9240934 821.
## 3 Afghanistan Asia 1962 32.0 10267083 853.
## 4 Afghanistan Asia 1967 34.0 11537966 836.
## 5 Afghanistan Asia 1972 36.1 13079460 740.
## 6 Afghanistan Asia 1977 38.4 14880372 786.
静态图
p <- ggplot(gapminder, aes(x &#61; gdpPercap, y&#61;lifeExp, size &#61; pop, colour &#61; country)) &#43;geom_point(show.legend &#61; FALSE, alpha &#61; 0.7) &#43;scale_color_viridis_d() &#43;scale_size(range &#61; c(2, 12)) &#43;scale_x_log10() &#43;labs(x &#61; "GDP per capita", y &#61; "Life expectancy")
p

基本
状态之间的过渡长度将设置为与它们之间的实际时间差相对应。
标签变量&#xff1a;frame_time
。给出当前帧所对应的时间。

创建面板&#xff1a;

让视图跟随数据在每帧中变化

逐步衰减

显示原始数据作为背景
您可以根据需要显示过去和/或将来的原始数据并设置其样式。

静态图
p <- ggplot(airquality,aes(Day, Temp, group &#61; Month, color &#61; factor(Month))) &#43;geom_line() &#43;scale_color_viridis_d() &#43;labs(x &#61; "Day of Month", y &#61; "Temperature") &#43;theme(legend.position &#61; "top")
p

让数据逐渐出现


在数据的几个不同阶段之间进行转换
数据准备&#xff1a;
library(dplyr)
mean.temp <- airquality %>%group_by(Month) %>%summarise(Temp &#61; mean(Temp))
mean.temp
## # A tibble: 5 x 2
## Month Temp
##
## 1 5 65.5
## 2 6 79.1
## 3 7 83.9
## 4 8 84.0
## 5 9 76.9
创建平均温度的条形图&#xff1a;
p <- ggplot(mean.temp, aes(Month, Temp, fill &#61; Temp)) &#43;geom_col() &#43;scale_fill_distiller(palette &#61; "Reds", direction &#61; 1) &#43;theme_minimal() &#43;theme(panel.grid &#61; element_blank(),panel.grid.major.y &#61; element_line(color &#61; "white"),panel.ontop &#61; TRUE)
p

- transition_states&#xff08;&#xff09;&#xff1a;

- enter_grow&#xff08;&#xff09;&#43; enter_fade&#xff08;&#xff09;
保存动画
如果需要保存动画以备后用&#xff0c;可以使用该anim_save()
功能。

参考文献
1.R语言动态图可视化&#xff1a;如何、创建具有精美动画的图
2.R语言生存分析可视化分析
3.Python数据可视化-seaborn Iris鸢尾花数据
4.r语言对布丰投针&#xff08;蒲丰投针&#xff09;实验进行模拟和动态
5.R语言生存分析数据分析可视化案例
6.r语言数据可视化分析案例&#xff1a;探索brfss数据数据分析
7.R语言动态可视化&#xff1a;制作历史全球平均温度的累积动态折线图动画gif视频图
8.R语言高维数据的主成分pca、 t-SNE算法降维与可视化分析案例报告
9.python主题LDA建模和t-SNE可视化